home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / init.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  29.1 KB  |  526 lines

  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
  5.     CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
  6.     LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL
  7.     READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR
  8.     SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING
  9.     STRING-CHAR SYMBOL T VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE
  10.     LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT
  11.     MULTIPLE-VALUES-LIMIT PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1
  12.     BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR
  13.     BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM
  14.     MOST-NEGATIVE-FIXNUM MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
  15.     LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
  16.     MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
  17.     LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
  18.     MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
  19.     LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
  20.     MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
  21.     LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT SHORT-FLOAT-EPSILON
  22.     SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON LONG-FLOAT-EPSILON
  23.     SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON
  24.     DOUBLE-FLOAT-NEGATIVE-EPSILON LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT
  25.     CHAR-FONT-LIMIT CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT
  26.     CHAR-SUPER-BIT CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
  27.     ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
  28.     *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK* + ++ +++ - * **
  29.     *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT* *QUERY-IO*
  30.     *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT* *READ-BASE* *READ-SUPPRESS*
  31.     *READTABLE* *PRINT-ESCAPE* *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE*
  32.     *PRINT-RADIX* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH*
  33.     *PRINT-ARRAY* *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS*
  34.     *LOAD-PATHS* *LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO* *BREAK-ON-WARNINGS*
  35.     *FEATURES* COERCE TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL
  36.     SYMBOLP ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP
  37.     CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P
  38.     SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP
  39.     EQ EQL EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION BOUNDP FBOUNDP
  40.     SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD
  41.     GET-SETF-METHOD-MULTIPLE-VALUE APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL
  42.     MAPCAN MAPCON VALUES VALUES-LIST MACRO-FUNCTION MACROEXPAND MACROEXPAND-1
  43.     PROCLAIM GET REMPROP SYMBOL-PLIST GETF GET-PROPERTIES SYMBOL-NAME
  44.     MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE
  45.     IN-PACKAGE FIND-PACKAGE PACKAGE-NAME PACKAGE-NICKNAMES RENAME-PACKAGE
  46.     PACKAGE-USE-LIST PACKAGE-USED-BY-LIST PACKAGE-SHADOWING-SYMBOLS
  47.     LIST-ALL-PACKAGES INTERN FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT
  48.     SHADOWING-IMPORT SHADOW USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE
  49.     REQUIRE ZEROP PLUSP MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1-
  50.     CONJUGATE GCD LCM EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS
  51.     ASIN ACOS ATAN SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE
  52.     NUMERATOR DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING
  53.     FTRUNCATE FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN
  54.     FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART
  55.     LOGIOR LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1
  56.     LOGORC2 LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
  57.     BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
  58.     MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
  59.     STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
  60.     DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
  61.     CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
  62.     CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
  63.     CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
  64.     CHAR-BIT SET-CHAR-BIT ELT SUBSEQ COPY-SEQ LENGTH REVERSE NREVERSE
  65.     MAKE-SEQUENCE CONCATENATE MAP SOME EVERY NOTANY NOTEVERY REDUCE FILL
  66.     REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF DELETE-IF-NOT
  67.     REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF
  68.     SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND
  69.     FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF
  70.     COUNT-IF-NOT MISMATCH SEARCH SORT STABLE-SORT MERGE CAR CDR CAAR CADR CDAR
  71.     CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR
  72.     CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR
  73.     CDDADR CDDDAR CDDDDR CONS TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND
  74.     THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST
  75.     LIST* MAKE-LIST APPEND COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC
  76.     NRECONC BUTLAST NBUTLAST LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT
  77.     NSUBST NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP
  78.     ADJOIN UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE
  79.     NSET-DIFFERENCE SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS
  80.     ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT MAKE-HASH-TABLE
  81.     HASH-TABLE-P GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT SXHASH
  82.     MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
  83.     ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX
  84.     ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND
  85.     BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
  86.     ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
  87.     VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
  88.     STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP STRING-NOT-GREATERP
  89.     STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING STRING-TRIM STRING-LEFT-TRIM
  90.     STRING-RIGHT-TRIM STRING-UPCASE STRING-DOWNCASE STRING-CAPITALIZE
  91.     NSTRING-UPCASE NSTRING-DOWNCASE NSTRING-CAPITALIZE STRING EVAL EVALHOOK
  92.     APPLYHOOK CONSTANTP MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM
  93.     MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM
  94.     MAKE-STRING-INPUT-STREAM MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING
  95.     STREAMP INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE
  96.     INTERACTIVE-STREAM-P CLOSE COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
  97.     SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
  98.     SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READ
  99.     READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
  100.     UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT READ-FROM-STRING
  101.     PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC WRITE-TO-STRING
  102.     PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING WRITE-LINE TERPRI
  103.     FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT WRITE-BYTE FORMAT
  104.     Y-OR-N-P YES-OR-NO-P PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
  105.     MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
  106.     PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
  107.     DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
  108.     USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
  109.     FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
  110.     CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE DOCUMENTATION VARIABLE
  111.     STRUCTURE TYPE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
  112.     GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
  113.     ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
  114.     LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
  115.     MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
  116.     SHORT-SITE-NAME LONG-SITE-NAME IDENTITY EVAL-WHEN QUOTE FUNCTION SETQ PROGN
  117.     LET LET* COMPILER-LET PROGV FLET LABELS MACROLET IF BLOCK RETURN-FROM
  118.     TAGBODY GO MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT
  119.     THROW DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER
  120.     DEFCONSTANT AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO
  121.     DEFSETF DEFINE-SETF-METHOD PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE
  122.     OTHERWISE RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST
  123.     MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ DEFMACRO LOCALLY REMF DO-SYMBOLS
  124.     DO-EXTERNAL-SYMBOLS DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP DEFSTRUCT
  125.     WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
  126.     WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE
  127.     UNTRACE STEP TIME EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION INLINE
  128.     NOTINLINE IGNORE OPTIMIZE SPEED SPACE SAFETY COMPILATION-SPEED DECLARATION
  129.     COMPILE INTERPRETER COMPILER
  130.   ))
  131. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D4 D5 30 97 19 01)
  132.    LAMBDA-LIST-KEYWORDS
  133.    (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
  134.   )
  135. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  136.    #.LAMBDA-LIST-KEYWORDS
  137.   )
  138. #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) EXIT
  139.    #.#'SYSTEM::%EXIT
  140.   )
  141. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) QUIT
  142.    #.#'SYSTEM::%EXIT
  143.   )
  144. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) BYE
  145.    #.#'SYSTEM::%EXIT
  146.   )
  147. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  148.    (EXIT QUIT BYE)
  149.   )
  150. #Y(#:TOP-LEVEL-FORM-9 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
  151.    (SPECIAL *FEATURES*)
  152.   )
  153. #Y(#:TOP-LEVEL-FORM-10 #14Y(00 00 00 00 00 01 63 00 36 01 30 01 19 01)
  154.    *FEATURES*
  155.   )
  156. #Y(#:TOP-LEVEL-FORM-11 #14Y(00 00 00 00 00 01 63 00 36 01 2F FF 19 01)
  157.    *FEATURES*
  158.   )
  159. #Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 D4 D5 36 01 30 07 19 01) "SYSTEM"
  160.    ("SYS" "COMPILER")
  161.   )
  162. #Y(#:TOP-LEVEL-FORM-13 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
  163. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  164. #Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
  165.    REMOVE-OLD-DEFINITIONS
  166.    #Y(REMOVE-OLD-DEFINITIONS
  167.       #106Y(00 01 00 00 00 02 A9 83 55 80 45 A9 83 54 04 A9 84 5C 13 A9 6A 9E
  168.             89 00 3B 16 01 1C 09 D6 D7 AB 67 04 AC 2B 04 05 A9 2F 58 A9 DA 30
  169.             9D A9 DB 36 01 86 98 06 A9 DC 5B 2B 03 09 A9 DE 36 01 86 98 05 A9
  170.             DE 5C 30 9C A9 DF 36 01 85 98 14 00 19 02 D4 AA 5A 01 14 69 F5 D5
  171.             30 29 16 01 1C 48 1A FF BC E0 AA 2E 0D A9 2D 0E 19 02
  172.            )
  173.       "~S is a special form and may not be redefined." "LISP"
  174.       "The old definition will be lost" "Redefining the COMMON LISP ~A ~S"
  175.       FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
  176.       %SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
  177.       "DEFUN/DEFMACRO: redefining ~S; it was traced!" WARN UNTRACE2
  178.   )  )
  179. #Y(#:TOP-LEVEL-FORM-16
  180.    #174Y(00 00 00 00 00 01 D4 2F 5F D5 2F F4 0F 02 D7 2F 5F D8 2D 05 D8 DA 30
  181.          96 DB 2D 05 DB DC 30 96 DD 2D 05 DD DE 30 96 DF 2D 05 DF E0 30 96 E1
  182.          2D 05 E1 E2 30 96 E3 2D 05 E3 E4 30 96 E5 2D 05 E5 E6 30 96 E7 2D 05
  183.          E7 E8 30 96 E9 2D 05 E9 5D 16 30 96 5D 17 2D 05 5D 17 5D 18 30 96 5D
  184.          19 2D 05 5D 19 5D 1A 30 96 5D 1B 2D 05 5D 1B 5D 1C 30 96 5D 1D 2D 05
  185.          5D 1D 5D 1E 30 96 5D 1F 2D 05 5D 1F 5D 20 30 96 5D 21 2D 05 5D 21 5D
  186.          22 30 96 5D 23 2D 05 5D 23 5D 24 30 96 5D 25 2D 05 5D 25 5D 26 30 96
  187.          5D 27 2D 05 5D 27 5D 28 30 96 3A 19 01
  188.         )
  189.    (SPECIAL *KEYWORD-PACKAGE*) "KEYWORD" *KEYWORD-PACKAGE* (SPECIAL *FENV*)
  190.    FENV-ASSOC REMOVE-OLD-DEFINITIONS
  191.    #Y(FENV-ASSOC
  192.       #65Y(00 02 00 00 00 03 8A 01 35 14 85 4A 04 D6 AA 5A 01 A9 6A 63 6A AC D4
  193.            1A 13 AB A9 30 AB 57 19 05 AC AC 94 57 21 73 D5 A9 79 02 33 00 A8 AA
  194.            88 01 2B 6E AC AC 94 57 14 27 02 07 00 89 01 4B 02 19 03
  195.           )
  196.       0. 2. "~S is an invalid function environment"
  197.      )
  198.    %EXPAND-CONS
  199.    #Y(%EXPAND-CONS
  200.       #25Y(00 05 00 00 00 06 89 03 0A 89 01 07 AD 00 14 3C 02 19 06 AC 95 72 02
  201.            1A 75
  202.      )    )
  203.    %EXPAND-FORM
  204.    #Y(%EXPAND-FORM
  205.       #780Y(00 01 00 00 00 02 93 1F 2B 8B 01 A8 86 2D 82 F2 A8 63 00 68 01 A8
  206.             02 21 21 A8 85 33 04 89 00 82 A9 8F 03 41 AC 05 00 01 14 5B 05 00
  207.             03 71 2D 04 3D 42 19 04 A9 5B 3C 02 19 02 93 25 02 82 7D AB 00 1A
  208.             82 9C C5 1A 2B 92 1F 05 8B 00 23 06 75 DD C6 1A 82 95 8F 03 41 AC
  209.             D9 5B 05 00 03 54 54 20 80 56 05 00 03 54 53 20 36 05 00 03 54 70
  210.             85 2D 0D C8 14 DC 5F 00 03 05 00 03 54 70 5A 03 05 00 03 54 70 63
  211.             00 68 01 A8 02 21 08 A8 85 33 04 89 00 FF B4 05 00 03 71 5B 3C 02
  212.             16 01 1A FF 91 8F 03 41 05 01 03 71 05 01 03 54 70 2D 0B 3D 05 01
  213.             03 54 71 5B 42 1A FF 78 8F 03 41 05 01 03 71 05 01 03 54 70 5B 8F
  214.             03 41 05 02 03 54 71 05 02 03 54 54 70 2D 0B 3D 05 02 03 54 54 71
  215.             5B 42 1A 80 52 E1 E2 E3 98 54 54 72 2F 60 3F 14 73 02 59 02 1A 81
  216.             EB E0 96 54 70 36 03 83 DC 65 8F 03 41 AC 05 00 03 70 5B 8F 03 41
  217.             05 01 03 71 05 01 03 54 70 5B 1A 18 8F 03 41 AC 05 00 03 70 5B 8F
  218.             03 41 05 01 03 71 05 01 03 54 70 2D 10 3D 05 01 03 54 71 2D 04 3D
  219.             42 1A FE F8 90 11 96 54 70 6B 00 17 90 12 97 54 70 31 00 17 13 E3
  220.             05 00 03 54 54 72 64 FE B3 5C 3C 02 11 18 01 19 04 8F 03 41 AC 05
  221.             00 03 70 5B 05 00 03 71 2D 13 1A FE C3 8F 03 41 AE 05 00 05 70 5B
  222.             8F 03 41 05 01 05 71 05 01 05 54 70 5B 5F 01 01 5F 01 00 42 3D 42
  223.             19 06 93 1A 1C 93 53 1A 18 95 54 71 2D 04 3E 02 97 54 70 AA 81 14
  224.             4A 93 1F 68 93 54 1C 67 E3 94 55 14 5C 3C 02 19 06 8F 03 41 AC 05
  225.             00 03 70 5B 05 00 03 71 2D 15 1A FE 6B 8F 03 41 AC 05 00 03 70 5B
  226.             05 00 03 71 2D 16 1A FE 59 00 1A 81 03 95 54 53 1A 80 F9 95 54 1C
  227.             72 95 54 54 1C 71 8F 03 41 AC 05 00 03 53 1A FE 33 95 54 53 1C 39
  228.             95 54 70 67 17 8F 03 41 AD 05 00 04 70 5B 8F 03 41 05 01 04 71 05
  229.             01 04 54 70 2D 18 3D 5D 19 05 01 00 35 00 10 00 05 01 04 54 71 2D
  230.             04 11 3D 42 3D 42 19 05 95 54 53 1B 08 E3 96 54 54 55 1A 80 9F 95
  231.             54 70 67 17 5D 19 93 35 00 10 00 8F 03 41 B0 05 00 07 70 5B 8F 03
  232.             41 05 01 07 71 05 01 07 54 70 2D 18 3D 05 01 07 54 71 2D 04 3D 42
  233.             3D 42 11 19 05 95 54 70 5B 1A 29 5D 1B A9 5A 01 5D 1C AA 5A 01 8B
  234.             01 92 1F 71 8B 00 86 2D 6C 92 54 1F 68 DA A9 67 1A 2F 60 72 8B 01
  235.             95 55 55 EB 16 01 7A 01 93 20 5E 89 01 56 5D 19 63 00 94 72 30 65
  236.             35 00 10 00 E3 9B 54 54 72 64 FD 50 5C 3C 02 11 19 06 A9 83 55 FD
  237.             60 A9 77 5C 00 1C FD 59 1A 0A 92 1F 18 8B 00 24 06 13 92 54 14 AC
  238.             63 00 34 02 14 26 FD 28 14 02 14 3C 02 19 04 5D 1D 03 1E 14 63 00
  239.             5A 02 8F 03 41 AB 5F 00 00 2D 0B 3D 05 00 02 71 2D 04 3D 42 19 03
  240.             92 20 69 5D 1F 5D 1E AC 5A 02
  241.            )
  242.       *FENV* FENV-ASSOC
  243.       #S(HASH-TABLE EQ (MACROLET . 560.) (LABELS . 497.) (FLET . 440.)
  244.          (PROGN . 420.) (TAGBODY . 392.) (PSETQ . 374.) (SETQ . 374.)
  245.          (BLOCK . 344.) (COND . 286.) (COMPILER-LET . 251.) (LET* . 215.)
  246.          (LET . 215.) (EVAL-WHEN . 182.) (FUNCTION . 23.)
  247.          (LOAD-TIME-VALUE . 2.) (DECLARE . 2.) (GO . 2.) (QUOTE . 2.)
  248.          (DEFCONSTANT . 191.) (DEFPARAMETER . 191.) (DEFVAR . 191.)
  249.          (MULTIPLE-VALUE-BIND . 191.) (MULTIPLE-VALUE-SETQ . 191.) (THE . 191.)
  250.          (RETURN-FROM . 191.)
  251.         )
  252.       %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO
  253.       "~S: ~S is illegal since ~S is a local macro" %EXPAND
  254.       "~S: invalid function environment ~S"
  255.       "~S: ~S is invalid since ~S is not a symbol" %EXPAND-LAMBDA COMPILE
  256.       VALUES-LIST QUOTE PROGN %EXPAND-VARSPEZ %EXPAND-VARSPEC-VAR
  257.       %EXPAND-VARSPEC-VAL %EXPAND-COND %RETURN-P %EXPAND-SETQLIST
  258.       %EXPAND-TAGBODY %EXPAND-FUNDEFS-1 %EXPAND-FUNDEFS-2 #.#'VECTOR
  259.       MAKE-MACRO-EXPANSION "illegal syntax in MACROLET: ~S"
  260.       "code after MACROLET contains a dotted list, ending with ~S"
  261.       "bad function environment occurred in ~S: ~S" %EXPAND-FORM
  262.       "~S: invalid form ~S"
  263.      )
  264.    %EXPAND-LIST
  265.    #Y(%EXPAND-LIST
  266.       #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
  267.            71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
  268.           )
  269.       "code contains a dotted list, ending with ~S" %EXPAND-CONS %EXPAND-FORM
  270.      )
  271.    %EXPAND-LAMBDA
  272.    #Y(%EXPAND-LAMBDA
  273.       #32Y(00 01 00 00 00 02 8B 01 24 00 10 8F 03 41 AA D4 5B 05 00 01 71 2D 04
  274.            3D 42 19 02 D5 D6 AB 5A 02
  275.           )
  276.       LAMBDA "~S: ~S should be a lambda expression" %EXPAND-FORM %EXPAND-CONS
  277.       %EXPAND-LAMBDABODY
  278.      )
  279.    %EXPAND-LAMBDABODY
  280.    #Y(%EXPAND-LAMBDABODY
  281.       #87Y(00 01 00 00 00 02 8C 01 92 1F 10 8B 00 A8 86 2B 06 8B 00 BE 52 1B 32
  282.            16 01 1B 38 8B 02 67 02 D4 D5 AD 73 02 73 02 8C 04 67 03 6B 02 1F 02
  283.            14 3C 02 19 03 8B 00 BF 52 16 03 1C 60 1A 16 8B 00 A8 85 2B 70 16 03
  284.            1C 54 1A 0A 8C 00 A8 85 2B 6E 16 02 1C 48 AA 00 1A 57
  285.           )
  286.       DECLARE SOURCE %EXPAND-LAMBDALIST %EXPAND-LIST
  287.      )
  288.    %EXPAND-LAMBDALIST
  289.    #Y(%EXPAND-LAMBDALIST
  290.       #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
  291.            71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
  292.           )
  293.       "lambda list must not end with the atom ~S" %EXPAND-CONS %EXPAND-PARSPEZ
  294.      )
  295.    %EXPAND-PARSPEZ
  296.    #Y(%EXPAND-PARSPEZ
  297.       #54Y(00 01 00 00 00 02 93 1F 27 93 54 1F 23 8F 00 41 AA 05 00 01 70 5B 8F
  298.            00 41 05 01 01 71 05 01 01 54 70 2D 01 3D 05 01 01 54 71 5B 42 3D 42
  299.            19 02 A9 5B 3C 02 19 02
  300.           )
  301.       %EXPAND-CONS %EXPAND-FORM
  302.      )
  303.    %EXPAND-VARSPEZ
  304.    #Y(%EXPAND-VARSPEZ
  305.       #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
  306.            71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
  307.           )
  308.       "variable list ends with the atom ~S" %EXPAND-CONS %EXPAND-PARSPEZ
  309.      )
  310.    %EXPAND-VARSPEC-VAR
  311.    #Y(%EXPAND-VARSPEC-VAR #16Y(00 01 00 00 00 02 93 1F 04 93 53 19 02 93 19 02)
  312.      )
  313.    %EXPAND-VARSPEC-VAL
  314.    #Y(%EXPAND-VARSPEC-VAL
  315.       #19Y(00 01 00 00 00 02 93 1F 07 93 54 70 2F 60 19 02 00 19 02)
  316.      )
  317.    %EXPAND-COND
  318.    #Y(%EXPAND-COND
  319.       #36Y(00 01 00 00 00 02 93 1F 15 8F 00 41 AA 05 00 01 70 2D 01 3D 05 00 01
  320.            71 26 6C 3D 42 19 02 A9 5B 3C 02 19 02
  321.           )
  322.       %EXPAND-CONS %EXPAND-LIST
  323.      )
  324.    %RETURN-P
  325.    #Y(%RETURN-P
  326.       #66Y(00 02 00 00 00 03 93 1F 33 8B 01 92 1F 28 8B 00 24 00 06 92 54 70 96
  327.            21 26 92 53 1F 07 AB 8B 01 26 64 1B 1B 8B 00 24 01 06 92 54 70 96 21
  328.            07 AB 8C 01 26 52 1B 09 16 01 7A 01 1A 4A 00 19 03 02 19 04
  329.           )
  330.       RETURN-FROM BLOCK
  331.      )
  332.    %EXPAND-SETQLIST
  333.    #Y(%EXPAND-SETQLIST
  334.       #56Y(00 01 00 00 00 02 93 1F 29 93 54 1F 25 8F 00 41 AA 05 00 01 70 5B 8F
  335.            00 41 05 01 01 71 05 01 01 54 70 2D 01 3D 05 01 01 54 71 26 5A 3D 42
  336.            3D 42 19 02 A9 5B 3C 02 19 02
  337.           )
  338.       %EXPAND-CONS %EXPAND-FORM
  339.      )
  340.    %EXPAND-TAGBODY
  341.    #Y(%EXPAND-TAGBODY
  342.       #77Y(00 01 00 00 00 02 93 1F 21 93 53 1F 23 8B 01 2D 01 3E 02 93 1F 2D 8F
  343.            00 41 AC 5F 00 01 5F 00 00 05 00 03 71 26 60 3D 42 19 04 A9 5B 3C 02
  344.            19 02 8F 00 41 AA 05 00 01 70 5B 05 00 01 71 26 47 3D 42 19 02 8C 03
  345.            64 FF BE 5C 3C 02 19 04
  346.           )
  347.       %EXPAND-CONS %EXPAND-FORM
  348.      )
  349.    %EXPAND-FUNDEFS-1
  350.    #Y(%EXPAND-FUNDEFS-1
  351.       #52Y(00 01 00 00 00 02 93 1F 1E 8B 01 92 1F 22 8B 00 86 2D 1D 92 54 1F 19
  352.            8B 00 5B 8C 04 64 68 31 02 1F 19 03 D4 AA 5A 01 89 01 79 63 01 59 01
  353.            19 02 D6 A9 5A 01
  354.           )
  355.       "FLET/LABELS: code contains a dotted list, ending with ~S" *FENV*
  356.       "illegal syntax in FLET/LABELS: ~S"
  357.      )
  358.    %EXPAND-FUNDEFS-2
  359.    #Y(%EXPAND-FUNDEFS-2
  360.       #51Y(00 01 00 00 00 02 93 1F 24 8B 01 8F 00 41 AB 8F 00 41 5F 01 00 05 01
  361.            00 70 5B 05 01 00 71 2D 01 3D 42 3D 05 00 02 71 26 5D 3D 42 19 03 A9
  362.            5B 3C 02 19 02
  363.           )
  364.       %EXPAND-CONS %EXPAND-LAMBDABODY
  365.      )
  366.    %EXPAND-LAMBDABODY-MAIN
  367.    #Y(%EXPAND-LAMBDABODY-MAIN
  368.       #15Y(00 02 00 00 00 03 93 10 00 AD 2D 01 11 19 03) *FENV*
  369.       %EXPAND-LAMBDABODY
  370.   )  )
  371. #Y(#:TOP-LEVEL-FORM-17
  372.    #68Y(00 00 00 00 00 01 D4 2F 5F 00 0F 01 D6 2D 03 D6 D8 30 96 D9 2F 5F 02 0F
  373.         06 DB 2F 5F 00 0F 08 DD 2F 5F 00 0F 0A DF 2F 58 DF 2D 03 DF E0 30 96 E1
  374.         E2 CD 72 30 96 E4 E2 CF 72 30 96 E6 E2 D1 72 30 96 3A 19 01
  375.        )
  376.    (SPECIAL *LOAD-PATHS*) *LOAD-PATHS* SEARCH-FILE REMOVE-OLD-DEFINITIONS
  377.    #Y(SEARCH-FILE
  378.       #49Y(00 02 00 00 00 03 5B AA 6A 64 1A 1B A8 59 01 1A 0D 8B 00 AD A9 36 01
  379.            6A 17 A8 85 1C 6F 00 EA AB 77 CB 02 16 01 7A 00 92 20 67 16 01 A8 2F
  380.            CC 19 04
  381.      )    )
  382.    (SPECIAL *LOAD-VERBOSE*) *LOAD-VERBOSE* (SPECIAL *LOAD-PRINT*) *LOAD-PRINT*
  383.    (SPECIAL *LOAD-ECHO*) *LOAD-ECHO* LOAD
  384.    #Y(LOAD
  385.       #257Y(00 01 00 00 80 1C 00 05 00 00 37 05 03 0E 05 EF 37 04 03 0E 06 EE
  386.             37 03 02 75 03 37 02 03 0E 07 EC 39 01 AE 85 3E 80 73 AE 78 0D 06
  387.             14 DC DD 36 01 5B 85 1F 15 AE DE 68 0B A8 83 B6 80 61 7E 00 07 14
  388.             DC DD 36 02 30 1F 16 01 14 8A 00 80 AC 89 03 80 52 92 14 0E 0D 10
  389.             0D 0E 0E 10 0E 8A 0D 13 36 01 2F 91 E3 36 03 2F 8E B6 36 01 2F 89
  390.             E4 36 03 2F 8E 4D 80 57 8A 0C 04 36 01 2F 91 B0 5B E5 36 01 69 79
  391.             A8 E5 85 28 24 A8 85 30 28 8A 0C 28 A8 01 05 2B 06 12 14 34 00 1A
  392.             20 98 1A FF AB 00 16 01 1A FF A5 A8 63 0C 30 88 1A FF A7 16 01 50
  393.             8A 0D 3F 1A 2A 92 1A 5E A8 2F 60 EA 8A 0F 05 A8 36 01 2F 87 16 01
  394.             8A 0C FF B3 1A FF AC 5F 00 07 36 01 30 91 5F 00 06 36 01 30 91 4F
  395.             8A 0D 13 36 01 2F 91 E7 36 03 2F 8E B6 36 01 2F 89 E8 36 03 2F 8E
  396.             02 12 02 19 09 E9 B0 5A 01 89 04 79 00 19 08
  397.            )
  398.       :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
  399.       *LOAD-PRINT* *LOAD-ECHO* :INPUT STRING-CHAR (#".LSP" #".FAS") SEARCH-FILE
  400.       *STANDARD-OUTPUT* *PACKAGE* *READTABLE* ";; Loading file " " ..." "EOF"
  401.       COMPILE-FORM ";; Loading of file " " is finished."
  402.       "A file with name ~A does not exist"
  403.      )
  404.    DEFUN MACRO
  405.    #Y(DEFUN
  406.       #117Y(00 02 00 00 00 03 94 54 1F 1E 94 54 54 1F 19 94 54 70 95 54 54 70
  407.             96 54 54 71 AA 86 2D 0E AA 84 55 0D C1 14 D5 AC 5A 02 D4 D5 5A 01
  408.             C0 1A 74 A8 5C AE 2F 64 3E 03 8A 01 06 D8 94 72 59 01 EB D9 DA DB
  409.             B0 73 02 DC DB B5 73 02 73 04 DD DB B1 73 02 DE B2 B2 B0 DF B6 B4
  410.             6B 02 1F 73 01 6B 02 20 6B 02 1F 73 01 E0 B4 73 02 73 03 73 03 DB
  411.             B1 73 02 59 04 19 09
  412.            )
  413.       "~S: missing function name and/or parameter list" DEFUN
  414.       "~S: ~S is not a symbol." "~S: special form ~S cannot be redefined."
  415.       DECLARE PROGN %PUT QUOTE 'DEFINITION %PUTD LABELS BLOCK FUNCTION
  416.      )
  417.    DO
  418.    #Y(DO
  419.       #153Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 71 93 1F 2C 01 02
  420.             36 01 6A A4 36 01 6A A4 AC 5B B2 2F 64 3E 02 9A 1F 3B 8B 08 7A 09
  421.             92 1F 15 92 54 1F 14 92 54 54 20 13 92 14 7B 06 16 01 1A 65 D4 D5
  422.             5A 01 92 1A 72 92 53 1A 6E 8B 00 93 54 70 73 02 7B 06 92 54 54 70
  423.             8B 01 AF 79 02 1F 05 16 01 1A 42 D6 5B D7 B0 6A 65 D8 97 72 D9 DA
  424.             B1 73 02 B2 B1 DB B6 30 65 72 B4 DC 8B 13 DA B9 73 02 73 03 DD 5B
  425.             DE 04 16 54 72 73 03 73 04 6B 02 20 6B 03 1F 73 04 59 03 19 0C
  426.            )
  427.       "exit clause in ~S must be a list" DO BLOCK LET DECLARE TAGBODY GO PSETQ
  428.       OR RETURN-FROM PROGN
  429.      )
  430.    DOTIMES
  431.    #Y(DOTIMES
  432.       #67Y(00 02 00 00 00 03 94 54 53 70 95 54 53 54 70 96 54 53 54 54 70 97 54
  433.            71 A8 5B AF 2F 64 3E 02 36 01 6A A4 D4 AF D5 D6 B2 73 02 73 03 AA B0
  434.            73 02 73 02 D7 B1 AC 73 03 AF 73 02 D8 97 72 AE 31 04 1F 19 0A
  435.           )
  436.       DO 0. 1+ >= DECLARE
  437.   )  )
  438. #Y(#:TOP-LEVEL-FORM-18 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defseq" LOAD)
  439. #Y(#:TOP-LEVEL-FORM-19 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "backquot" LOAD)
  440. #Y(#:TOP-LEVEL-FORM-20 #15Y(00 00 00 00 00 01 D4 D5 C0 72 30 96 3A 19 01)
  441.    BACKQUOTE MACRO #Y(BACKQUOTE #12Y(00 01 00 01 00 08 94 54 54 53 19 03))
  442.   )
  443. #Y(#:TOP-LEVEL-FORM-21 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defmacro" LOAD)
  444. #Y(#:TOP-LEVEL-FORM-22
  445.    #21Y(00 00 00 00 00 01 D4 D5 C0 72 30 96 D7 D5 C2 72 30 96 3A 19 01)
  446.    DEFMACRO MACRO
  447.    #Y(DEFMACRO
  448.       #87Y(00 01 00 01 00 08 8C 02 2D 00 3E 04 D5 D6 D7 D8 D9 AF 73 02 73 02 89
  449.            04 2E 00 14 DC D9 B1 73 02 DD DE B4 73 03 73 03 73 01 6B 02 20 6B 03
  450.            1F D6 DF E0 D9 B0 73 02 E1 D9 B6 73 02 73 04 73 03 D9 AE 73 02 59 04
  451.            19 07 DA D9 B0 73 02 DB D9 B0 73 02 73 04 59 01 1A 43
  452.           )
  453.       MAKE-MACRO-EXPANSION PROGN EVAL-WHEN (COMPILE LOAD EVAL)
  454.       REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
  455.       'MACRO (EVAL) %PUT 'DEFINITION
  456.      )
  457.    DEFUN
  458.    #Y(DEFUN
  459.       #231Y(00 02 00 00 00 03 94 54 1F 13 94 54 70 86 2D 13 94 54 54 20 2D C1
  460.             14 D5 96 54 70 5A 02 D4 D5 8C 04 5A 02 C0 1A 70 DE AE 73 02 59 01
  461.             1A 80 6E 5D 16 DE B3 73 02 5D 17 DE B0 73 02 73 04 59 01 1A 80 6D
  462.             94 54 70 95 54 54 70 96 54 54 71 A8 5C AE 2F 64 3E 03 8A 01 06 D8
  463.             94 72 59 01 EB AC AA D9 B0 AE 6B 02 1F 73 01 31 02 20 72 DA DB DC
  464.             DD DE B3 73 02 0E 0B 1C 25 0E 0C 1C 21 B3 63 0D E2 36 02 84 DC 18
  465.             0E 0F 1B 14 0E 10 1B 10 0E 11 1B 0C 0E 12 1B 08 63 13 63 14 85 28
  466.             FF 8A 00 14 6B 02 1F 73 03 E9 DE B2 73 02 73 02 89 04 FF 81 00 14
  467.             5D 18 DE B4 73 02 5D 19 B5 9A 72 73 01 5D 1A B7 73 02 73 03 73 03
  468.             DB 5D 1B 5D 1C DE B7 73 02 5D 1D DE BC 73 02 73 04 73 03 DE B5 73
  469.             02 73 03 6B 02 20 31 03 1F 19 0A
  470.            )
  471.       "~S: cannot define a function from that: ~S" DEFUN
  472.       "~S: the name of a function must be a symbol, not ~S"
  473.       "~S: function ~S is missing a lambda list" DECLARE BLOCK PROGN EVAL-WHEN
  474.       (COMPILE) C-DEFUN QUOTE *COMPILING* *COMPILING-FROM-FILE*
  475.       *INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV*
  476.       *TOPLEVEL-DENV* REMOVE-OLD-DEFINITIONS %SET-DOCUMENTATION 'FUNCTION %PUTD
  477.       LABELS FUNCTION (EVAL) %PUT 'DEFINITION
  478.   )  )
  479. #Y(#:TOP-LEVEL-FORM-23
  480.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MACRO-EXPANDER
  481.    REMOVE-OLD-DEFINITIONS MACRO
  482.    #Y(MACRO-EXPANDER #13Y(00 01 00 01 00 08 8C 02 A8 2D 00 19 04)
  483.       MAKE-MACRO-EXPANSION
  484.   )  )
  485. #Y(#:TOP-LEVEL-FORM-24 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "macros1" LOAD)
  486. #Y(#:TOP-LEVEL-FORM-25 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "macros2" LOAD)
  487. #Y(#:TOP-LEVEL-FORM-26 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defs1" LOAD)
  488. #Y(#:TOP-LEVEL-FORM-27 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "places" LOAD)
  489. #Y(#:TOP-LEVEL-FORM-28 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "floatpri" LOAD)
  490. #Y(#:TOP-LEVEL-FORM-29 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "type" LOAD)
  491. #Y(#:TOP-LEVEL-FORM-30 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defstruc" LOAD)
  492. #Y(#:TOP-LEVEL-FORM-31 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "format" LOAD)
  493. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  494.    SEARCH-FILE REMOVE-OLD-DEFINITIONS
  495.    #Y(SEARCH-FILE
  496.       #162Y(00 02 00 00 00 03 00 29 01 76 02 00 00 AB 30 12 51 14 8A 00 0A D4
  497.             60 02 00 31 00 17 0B 01 00 AC D5 36 01 78 17 04 5B D6 D7 AF 6A 10
  498.             D8 36 02 83 DC 07 0E 05 72 5B 1A 80 62 00 1A 78 AE 65 06 01 A9 36
  499.             05 78 6F 00 8A 00 80 48 14 5B 1A 10 7E 01 00 14 90 07 94 54 54 53
  500.             6F 00 2F D3 7A 01 A9 84 B6 6C 16 02 DC A9 DD DE 36 02 6A 83 31 00
  501.             17 19 0A 7E 01 00 AF A9 36 01 6A 17 36 02 6A 17 A8 AC D8 36 02 83
  502.             DC 11 A8 5C 6A 20 89 05 FF AE 89 00 FF B8 16 01 A8 7B 03 16 01 7A
  503.             01 A9 84 B6 52 00 19 08
  504.            )
  505.       #.#'PATHNAME-TYPE #".*" #"" :PARENT #.#'EQUAL *LOAD-PATHS*
  506.       #Y(SEARCH-FILE-1
  507.          #20Y(00 01 00 00 00 02 8B 01 6A 12 61 00 00 D5 36 02 2F DC 19 02) NIL
  508.          #.#'STRING=
  509.         )
  510.       ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
  511.   )  )
  512. #Y(#:TOP-LEVEL-FORM-33 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "user1" LOAD)
  513. #Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "user2" LOAD)
  514. #Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "trace" LOAD)
  515. #Y(#:TOP-LEVEL-FORM-36 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "config" LOAD)
  516. #Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "compiler" LOAD)
  517. #Y(#:TOP-LEVEL-FORM-38 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defs2" LOAD)
  518. #Y(#:TOP-LEVEL-FORM-39
  519.    #19Y(00 00 00 00 00 01 D4 D5 83 FD 03 00 19 01 D6 2D 03 19 01) "MAKE-WINDOW"
  520.    "SYSTEM" "screen" LOAD
  521.   )
  522. #Y(#:TOP-LEVEL-FORM-40
  523.    #18Y(00 00 00 00 00 01 D4 7F 01 03 00 19 01 D6 2D 03 19 01) "Load editor?"
  524.    Y-OR-N-P "editor" LOAD
  525.   )
  526. #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "USER")